home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 20
/
Tiger_Disk_020_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
leonardo main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
38KB
|
1,013 lines
0 poke808,230:print"[147]"chr$(8):if a=0 then a=1:print"[147]":load"leonardo font",8,1
1 if bi=4 then bi=5:poke53280,0:poke53281,0:print"[147][152]":load"leonardo font",8,1
2 if bi=5 then bi=4:poke56576,0:poke53272,33:poke648,200:goto 30
3 :
4 poke56576,0:poke53272,33:poke648,200:print"[152][147]"
5 le=35:r=1:w=13
6 poke53280,0:poke53281,0
7 i$="":x$="":p=0:z=0:m=20
8 goto 30
9 :
10 rem "[141][145] --- turbo input v2.0 ---
12 le[178]35:q[178]1:z[178]0:w[178]20:t[178]13:o[178]204:u[178]198:k[178]207:bs[178]1:
13 i$[178]"":x$[178]"":p[178]0
14 te$[178]">":[151] 214,[194](214)[170]1:[151] 211,2[171][195](te$)[171]1
15 [158] 58732
16 [153] te$;" ";:p[178]0:bs[178]1
17 [151]o,z:[151]u,z:[146]u,q:[161]x$:[151]k,z:[151]o,q:[153]" cmd";:[139]x$[178]"goto"[167]i$[178]"fspc(_":[142]
18 [139]p[177]z[167][139][198](x$)[178]w[167]i$[178][200](i$,[195](i$)[171]q):[153]"cmd cmd";:p[178]p[171]1
19 [139][198](x$)[178]t[137]23
20 [139]p[178]le[137]17
21 [139]bs[178]q[167][139](x$[179]" "[176](x$[177][199](127)))[167][139]x$[179][199](160)[137]17
22 [153]x$;:i$[178]i$[170]x$:p[178]p[170]q:[137]17
23 [153] [199](13)
24 [142]
25 :
30 [143] "gosubon --- bildverteiler ---
31 if bi=0 then 2000
32 if bi=1 then 2100
33 if bi=2 then 2200
34 if bi=3 then 2300
35 if bi=4 then 2400
36 if bi=5 then 2550
37 if bi=6 then 2600
38 if bi=7 then 2700
39 if bi=8 then 2800
40 if bi=9 then 2900
41 if bi=10then 3000
42 if bi=11then 3100
43 if bi=12then 3200
44 if bi=13then 3300
45 if bi=14then 3400
46 if bi=15then 3500
47 if bi=16then 3600
48 if bi=17then 3700
49 :
50 rem "[141][145] --- parser (ebene 1) ---
51 [139]v$[178]"toete"[176]v$[178]"kille"[167] 100
52 [139]v$[178]"inv"[176]v$[178]"inventar"[176]v$[178]"list"[176]v$[178]"liste"[167] 110
53 [139]v$[178]"untersuche"[176]v$[178]"untersuch"[167]880
54 [139]v$[178]"benutze"[176]v$[178]"use"[167] 130
55 [139]v$[178]"nimm"[176]v$[178]"nehme"[167] 150
56 [139]v$[178]"lies"[176]v$[178]"lese"[167] 180
57 [139]v$[178]"iss"[176]v$[178]"esse"[167] 200
58 [139]v$[178]"trinke"[176]v$[178]"trink"[167] 220
59 [139]v$[178]"klopfe"[176]v$[178]"klopf"[167] 240
60 [139]v$[178]"kommandos"[176]v$[178]"verben"[176]v$[178]"commands"[167] 260
61 [139]v$[178]"blick"[176]v$[178]"blicke"[167] 280
62 [139]v$[178]"gehe"[176]v$[178]"geh"[167] 300
63 [139]v$[178]"gib"[176]v$[178]"gebe"[167] 350
64 [139]v$[178]"schlaf"[176]v$[178]"schlafe"[167] 390
65 [139]v$[178]"frage"[176]v$[178]"frag"[167] 420
66 [139]v$[178]"grab"[176]v$[178]"grabe"[176]v$[178]"buddel"[176]v$[178]"dig"[167] 460
67 [139]v$[178]"sag"[176]v$[178]"sage"[176]v$[178]"sprich"[167] 480
68 [139]v$[178]"schlag"[176]v$[178]"schlage"[176]v$[178]"hit"[167] 510
69 [139]v$[178]"drueck"[176]v$[178]"druecke"[167] 530
70 [139]v$[178]"load"[176]v$[178]"lade"[167] 560
81 [139]v$[178]"save"[176]v$[178]"speichern"[176]v$[178]"sichern"[167] 590
82 [139]v$[178]"n"[176]v$[178]"(NULL)"[176]v$[178]"(NULL)orden"[176]v$[178]"norden"[167] 620
83 [139]v$[178]"s"[176]v$[178]"(NULL)"[176]v$[178]"(NULL)ueden"[176]v$[178]"sueden"[167] 670
84 [139]v$[178]"w"[176]v$[178]"(NULL)"[176]v$[178]"(NULL)esten"[176]v$[178]"westen"[167] 710
85 [139]v$[178]"o"[176]v$[178]"(NULL)"[176]v$[178]"(NULL)sten"[176]v$[178]"osten"[167] 760
86 [139]v$[178]"h"[176]v$[178]"left$"[176]v$[178]"left$och"[176]v$[178]"hoch"[167] 800
87 [139]v$[178]"r"[176]v$[178]"(NULL)"[176]v$[178]"(NULL)unter"[176]v$[178]"runter"[167] 840
88 [153]"print# right$ch kann deine valingabe nicht verstehen!":[153]"on (NULL)ersuche sie besser zu ";
89 [153]" formulieren.":[153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
90 [143] "gosubon --- eingabe-trenner ---
91 for t=1 to len(i$):qw=0
92 if mid$(i$,t,1)=" " then 94
93 next t:o$="":v$="":qw=1
94 o$="":v$=left$(i$,t-1)
95 if qw=0 then o$=right$(i$,len(i$)-t)
96 return
99 :
100 rem "[208]arser -> toete"
108 print" [196]u kannst das nicht toeten!":poke198,0:wait198,1:poke198,0:return
109 :
110 rem "[141][145] --- parser -> inv, inventar ---
112 [153]" str$u besitzt:
113 if x1=1 then print" [159][212]ischtennisball"
114 if x2=1 then print" [159][210]ed [203]eycard[152]"
115 if x3=1 then print" [159]10-[208]fennig[152]"
116 if x4=1 then print" [159][193]mulett[152]"
117 if x5=1 then print" [159][208]haser[152]"
118 if x6=1 then print" [159]deine [214]erlobte[152]"
119 if x7=1 then print"
120 [139] x8[178]1 [167] [153]"
121 if x9=1 then print"
122 [139] xa[178]1 [167] [153]"
123 if xb=1 then print"
128 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
129 :
130 [143] "gosubon --- parser -> benutze,use ---
131 if bi=15 and x4=1thenifo$="[193]mulett" or o$="amulett" then 1225
132 if bi=11 then if o$="[212]ransporter" or o$="transporter" then 1325
133 if o$="[193]mulett" or o$="amulett" then 1125
134 if o$="[208]haser" or o$="phaser" then 1200
135 if o$="[208]ing-[208]ong-[194]all" or o$="ping-pong-ball" then 1560
136 if o$="[212]ischtennisball" or o$="tischtennisball" then 1560
137 ifo$="[214]erlobte"oro$="verlobte"oro$="deine verlobte"then 1570
138 ifo$="deine [214]erlobte" then 1570
148 print" [196]u kannst das nicht benutzen!":poke198,0:wait198,1:poke198,0:return
149 :
150 rem "[141][145] --- parser -> nimm, nehme ---[146]
151 [139]bi[178]1[167][139]x1[178]0[167][139] o$[178]"ping-pong-ball" [176] o$[178]"tischtennisball" [167] 1000
152 [139]bi[178]1[167][139]x1[178]0[167][139] o$[178]"(NULL)ing-(NULL)ong-peekall" [176] o$[178]"(NULL)ischtennisball" [167] 1000
153 [139]bi[178]2[167][139]x2[178]0[167][139]o$[178]"red keycard"[176]o$[178]"(NULL)valstr$ (NULL)val(NULL)lenatn(NULL)str$"[167]1015
154 [139] bi[178]2 [167] [139] o$[178]"valrdbeere" [176] o$[178]"erdbeere" [176] o$[178]"erdbeeren" [167] 1095
155 [139] bi[178]2 [167] [139] o$[178]"valrdbeeren" [167] 1095
156 [139]bi[178]2[167][139]x2[178]0[167][139]o$[178]"(NULL)ed (NULL)eycard"[167]1015
157 [139]bi[178]14[167][139]x5[178]0[167][139]o$[178]"(NULL)haser" [176] o$[178]"phaser" [167] 1215
158 [139]bi[178]8 [167][139]o$[178]"(NULL)tein" [176] o$[178]"stein" [167] 1530
178 [153]" str$u kannst das nicht nehmen!":[151]198,0:[146]198,1:[151]198,0:[142]
179 :
180 [143] "gosubon --- parser -> lies, lese ---wait
181 if bi=4 then 1065
182 if bi=8 then 1100
198 print" [196]u kannst das nicht lesewait198,1:poke198,0:return
199 :
200 [143] "gosubon --- parser -> iss, esse ---wait
201 :
202 if bi=2 then if o$="[197]rdbeere" or o$="erdbeere" then 1095
203 if bi=2 then if o$="[197]rdbeeren" or o$="erdbeeren" then 1095
218 print" [196]u kannst das nicht essen!":poke198,0:wait198,1:poke198,0:return
219 :
220 rem "[141][145] --- parser -> trink, trinke ---[146]
238 [153]" str$u kannst das nicht trinken!":[151]198,0:[146]198,1:[151]198,0:[142]
239 :
240 [143] "gosubon --- parser -> klopf, klopfe ---wait
241 :
242 if bi=4 then 1085
243 if bi=8 thenifo$="[211]tein"oro$="stein" oro$="an [211]tein"oro$="an stein"then1115
244 if bi=6 then 1140
245 if bi=16 and o$="[211]chott" or o$="schott" or o$="tuer" or o$="[212]uer" then 1555
246 if bi=16thenifo$="[211]chott" or o$="schott" or o$="tuer" or o$="[212]uer" then 1555
258 print" [196]a kannst du nicht klopfen!":poke198,0:wait198,1:poke198,0:return
259 :
260 rem "[141][145] --- parser -> verben, kommandos ---[146]
261 [153]"print# ascolgende (NULL)erben kannst du in diesem
263 print" [193]dventure von [203]ultsoft benutzen:
264 [153]"list nimm, lies, iss, trinke, inventar,
265 print" klopfe, kommandos (verben), blick,
266 [153]" gehe, gib, schlafe, benutze, frage,
267 print" grabe, sage, schlage, druecke, unter-
268 [153]" suche, n, s, o, w, h, r, load, save...
270 print" und einige mehr.
271 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
278 [142]
279 :
280 [143] "gosubon --- parser -> blick, blicke ---
290 print"[152] [196]u schaust und schaust und siehst
291 [153]" doch nicht mehr..."
292 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
299 :
300 [143] "gosubon --- parser -> geh, gehe ---
340 print"[152] [196]u gehst und gehst (im [203]reis) und
342 [153]"closekommst doch nicht weiter..."
344 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
349 :
350 [143] "gosubon --- parser -> gib, gebe ---
380 print"[152] [215]arum willst du das weggeben? [196]as
381 [153]" kannst du vielleicht noch brauchen!"
382 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
389 :
390 [143] "gosubon --- parser -> schlaf, schlafe ---
415 print"[152] [196]u legst dich hin und schlaefst ein
416 [153]" paar (NULL)tuendchen...
418 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
419 :
420 rem "[141][145] --- parser -> frag, frage ---
421 :
450 [153]"print# str$u fraegst und fraegst, doch niemand
452 print" antwortet dir...
454 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
460 [143] "gosubon --- parser -> grab, grabe ---
461 :
462 if bi=2 then if x3=0 then 1035
463 if bi=2 then if x3=1 then 1050
477 print" [200]ier kannst du nicht graben!":print"<[212]aste>[152]":poke198,0:wait198,1:poke198,0
478 return
479 :
480 rem "[141][145] --- parser -> sag, sage ---
500 [153]"print# str$u schwaffelst und schwaffelst, doch
502 print" niemand hoert es...
504 [153]" print<(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
509 :
510 [143] "gosubon --- parser -> schlag, schlage ---
520 print"[152] [196]u schlaegst um dich wie ein [215]ilder
522 [153]" doch niemand interssiert es...
524 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
529 :
530 rem "[141][145] --- parser -> drueck, druecke ---
550 [153]"print# str$u drueckst und drueckst, doch nichts
552 print"[160]passiert...":print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
559 :
560 rem "[141][145] --- parser -> load, lade ---
561 [153]"loadprint# (NULL)elchen (NULL)pielstand (1-9)?
562 get ty$:if ty$="" then 562
563 if ty$>"0"andty$<":" then 565
564 goto 562
565 print"[201]ch lade..."
566 er$="leonardo sav":er$=er$+ty$+",s,r"
567 open2,8,2,er$
568 input#2,bi:input#2,x1:input#2,x2:input#2,x3:input#2,x4:input#2,x5
569 input#2,x6:input#2,x7:input#2,x8:input#2,x9:input#2,xa:input#2,xb
570 rem input#2,xc:input#2,xd
580 close2
581 print"[158] [214]organg beendet!":print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0
582 return
589 :
590 rem "[141][145] --- parser -> save, sichern ---
591 [153]"loadprint# (NULL)elchen (NULL)pielstand (1-9)?
592 get ty$:if ty$="" then 592
593 if ty$>"0"andty$<":" then 595
594 goto 592
595 print"[201]ch sichere..."
596 er$="leonardo sav":er$=er$+ty$+",s,w":tr$="s:"+er$
597 open15,8,15,tr$:close15:open1,8,1,er$
598 print#1,bi:print#1,x1:print#1,x2:print#1,x3:print#1,x4:print#1,x5
599 print#1,x6:print#1,x7:print#1,x8:print#1,x9:print#1,xa:print#1,xb:close1
600 print"[158] [214]organg beendet!":print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0
602 return
619 :
620 rem "[141][145] --- parser -> n, [206]orden ---
621 :
622 [139] bi[178]2 [167] [153]"print# str$u gehst nach (NULL)orden.":[153]" <(NULL)aste>print#"
623 [139] bi[178]2 [167] [151]198,0:[146]198,1:[151]198,0:bi[178]1:[142]
624 [139] bi[178]5 [167] [153]"print# str$u gehst nach (NULL)orden.":[153]" <(NULL)aste>print#"
625 [139] bi[178]5 [167] [151]198,0:[146]198,1:[151]198,0:bi[178]2:[142]
626 [139] bi[178]6 [167] [153]"print# str$u gehst nach (NULL)orden.":[153]" <(NULL)aste>print#"
627 [139] bi[178]6 [167] [151]198,0:[146]198,1:[151]198,0:bi[178]5:[142]
628 [139] bi[178]7 [167] [153]"print# str$u gehst nach (NULL)orden.":[153]" <(NULL)aste>print#"
629 [139] bi[178]7 [167] [151]198,0:[146]198,1:[151]198,0:bi[178]6:[142]
630 [139] bi[178]12[167] [153]"print# str$u gehst nach (NULL)orden.":[153]" <(NULL)aste>print#"
631 [139] bi[178]12[167] [151]198,0:[146]198,1:[151]198,0:bi[178]13:[142]
632 [139] bi[178]16[167] [153]"print# str$u gehst nach (NULL)orden.":[153]" <(NULL)aste>print#"
633 [139] bi[178]16[167] [151]198,0:[146]198,1:[151]198,0:bi[178]12:[142]
667 [153]"print# str$u kannst nicht nach (NULL)orden gehen!":[153]" <(NULL)aste>print#":[151]198,0
668 [146]198,1:[151]198,0:[142]
669 :
670 [143] "gosubon --- parser -> s, (NULL)ueden ---
671 :
672 if bi=1 then print"[152] [196]u gehst nach [211]ueden."chr$(13)" <[212]aste>[152]"
673 if bi=1 then poke198,0:wait198,1:poke198,0:bi=2:return
674 if bi=2 then print"[152] [196]u gehst nach [211]ueden."chr$(13)" <[212]aste>[152]"
675 if bi=2 then poke198,0:wait198,1:poke198,0:bi=5:return
676 if bi=5 then print"[152] [196]u gehst nach [211]ueden."chr$(13)" <[212]aste>[152]"
677 if bi=5 then poke198,0:wait198,1:poke198,0:bi=6:return
678 if bi=6 then print"[152] [196]u gehst nach [211]ueden."chr$(13)" <[212]aste>[152]"
679 if bi=6 then poke198,0:wait198,1:poke198,0:bi=7:return
680 if bi=12 then print"[152] [196]u gehst nach [211]ueden."chr$(13)" <[212]aste>[152]"
681 if bi=12 then poke198,0:wait198,1:poke198,0:bi=16:return
682 if bi=13 then print"[152] [196]u gehst nach [211]ueden."chr$(13)" <[212]aste>[152]"
683 if bi=13 then poke198,0:wait198,1:poke198,0:bi=12:return
707 print"[152] [196]u kannst nicht nach [211]ueden gehen!":print" <[212]aste>":poke198,0:wait198,1
708 poke198,0:return
709 :
710 rem "[141][145] --- parser -> w, [215]esten ---
712 [139]bi[178]3[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
713 [139]bi[178]4[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
714 [139]bi[178]7[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
715 [139] bi[178]3 [167] bi[178]2:[146]198,1:[151]198,0:[142]
716 [139] bi[178]4 [167] bi[178]3:[146]198,1:[151]198,0:[142]
717 [139] bi[178]7 [167] bi[178]9:[146]198,1:[151]198,0:[142]
718 [139]bi[178]8[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
719 [139] bi[178]8 [167] bi[178]7:[146]198,1:[151]198,0:[142]
720 [139]bi[178]10[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
721 [139] bi[178]10 [167] bi[178]8:[146]198,1:[151]198,0:[142]
722 [139]bi[178]13[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
723 [139] bi[178]13 [167] bi[178]15:[146]198,1:[151]198,0:[142]
724 [139]bi[178]14[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
725 [139] bi[178]14 [167] bi[178]13:[146]198,1:[151]198,0:[142]
726 [139]bi[178]12[167][153]"print# str$u gehst nach (NULL)esten.":[153]" <(NULL)aste>":[151]198,0
727 [139] bi[178]12 [167] bi[178]11:[146]198,1:[151]198,0:[142]
757 [153]"print# str$u kannst nicht nach (NULL)esten gehen!":[153]" <(NULL)aste>":[151]198,0:[146]198,1
758 [151]198,0:[142]
759 :
760 [143] "gosubon --- parser -> o, (NULL)sten ---
762 ifbi=3thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
763 ifbi=2thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
764 if bi=2 then bi=3:wait198,1:poke198,0:return
765 if bi=3 then bi=4:wait198,1:poke198,0:return
766 ifbi=9thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
767 if bi=9 then bi=7:wait198,1:poke198,0:return
768 ifbi=7thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
769 if bi=7 then bi=8:wait198,1:poke198,0:return
770 ifbi=8thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
771 if bi=8 then bi=10:wait198,1:poke198,0:return
772 ifbi=11thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
773 if bi=11then bi=12:wait198,1:poke198,0:return
774 ifbi=13thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
775 if bi=13then bi=14:wait198,1:poke198,0:return
776 ifbi=15thenprint"[152] [196]u gehst nach [207]sten.":print" <[212]aste>":poke198,0
777 if bi=15then bi=13:wait198,1:poke198,0:return
797 print"[152] [196]u kannst nicht nach [207]sten gehen!":print" <[212]aste>":poke198,0:wait198,1
798 poke198,0:return
799 :
800 rem "[141][145] --- parser -> h, [200]och ---
801 :
802 [139] bi[178]4 [167] 1075
837 [153]"print# str$u kannst hier nicht hoch!":[153]" <(NULL)aste>":[151]198,0:[146]198,1
838 [151]198,0:[142]
839 :
840 [143] "gosubon --- parser -> r, (NULL)unter ---
877 print"[152] [196]u kannst hier nicht runter!":print" <[212]aste>":poke198,0:wait198,1
878 poke198,0:return
879 :
880 rem "[141][145] --- [208]arser -> untersuche ---
881 [139] x5[178]1 [167] [139] o$[178]"(NULL)haser" [176] o$[178]"phaser" [167] 1260
882 [139] x4[178]1 [167] [139] o$[178]"atnmulett" [176] o$[178]"amulett" [167] 1290
883 [139] x6[178]1 [167] [139] o$[178]"(NULL)erlobte" [176] o$[178]"verlobte" [176] o$[178]"deine (NULL)erlobte"[167]1470
884 [139] x1[178]1 [167] [139] o$[178]"(NULL)ischtennisball"[176]o$[178]"(NULL)ing-(NULL)ong-peekall" [167] 1430
885 [139] x2[178]1 [167] [139] o$[178]"(NULL)ed (NULL)eycard" [176] o$[178]"red keycard" [167] 1450
886 [139] x3[178]1 [167] [139] o$[178]"10-(NULL)fennig" [176] o$[178]"10-(NULL)fennig-(NULL)tueck" [167] 1440
887 [139] bi[178]14[167] [139] o$[178]"(NULL)haser" [176] o$[178]"phaser" [167] 1260
888 [139] bi[178]8 [167] [139] o$[178]"(NULL)tein" [176] o$[178]"stein" [167] 1520
906 [153]"print# str$as kannst du leider nicht untersuchen."
907 [153]"on <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
908 :
998 :
999 [143] "gosubon ---> (NULL)arser valnde ! <---
1000 :
1001 x1=1
1002 print" [152][196]u hebst den kleinen [212]ischtennisball
1004 [153]" auf und betrachtest ihn, waehrend
1006 print" du in in deinen [198]ingern drehst.
1008 [153]" '(NULL)ow! valin (NULL)ier-(NULL)terne! (NULL)nd das hier
1010 print" auf dieser beschisse...schoenen,
1012 [153]" kleinen right$nsel.":[153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
1013 [142]
1014 :
1015 :
1016 [153]"print# str$u nimmst dir freudestrahlend die
1018 print" [210]ed-[203]eycard und stopfst sie dir in
1020 [153]" deine unendlich grossen (NULL)aschen..."
1022 [153]" (NULL)it dieser (NULL)arte kannst du (NULL)(NULL)(NULL)val
1024 print" [212]ueren oeffnen, denkst du dir, ob es
1026 [153]" stimmt, kann ich dir jetzt nicht sagen.
1028 print"[145] -> [215]enn's dich interessiert, waehrend
1030 [153]" ich diesen (NULL)rampf hier schreibe,
1032 print" regnet es draussen wie bloed!
1034 x2[178]1:[153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1035 :
1036 [153]" print#(NULL)angsam graebst du dich tiefer und
1038 print" tiefer in das [197]rdreich hinein. [193]ls
1040 [153]" du am valnde deiner (NULL)raefte am valrdmittel-
1042 print"[145] punkt ankommst findest du ein 10-
1044 [153]" (NULL)fennig-(NULL)tueck!":x3[178]1
1046 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1050 :
1052 [153]" print#str$u graebst und graebst bis du irgend-
1054 print" wo in [193]sien rauskommst, in diesem
1056 [153]" atnugenblick durchzuckt dich der geniale
1058 print" [199]edanke [213][205][218][213][203][197][200][210][197][206], was du dann auch
1060 [153]" tust!":[153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1061 :
1065 [153]" print#str$u versuchst die alte (NULL)chrift zu
1066 print" entziffern, da du aber schon [208]robleme
1068 [153]" mit dem atnlphabet hast, ist dieser
1070 print" [214]ersuch nicht gerade von [197]rfolg ge-
1072 [153]" kroent.":[153]" <(NULL)aste>":[151]198,0:[146]198,1:[151]198,0:[142]
1073 :
1075 [153]"print# atnechzend kletterst du auf den atnltar,
1076 print" '[205]an hat hier oben aber eine schoene
1077 [153]" atnussicht' sagst du leise zu dir, man
1078 print" kann den [196]schungel sehen, den [197]rdbeer-
1079 [153]" acker und vieles mehr... str$a es dir
1080 print" jetzt zu langweilig dort oben wird,
1081 [153]" steigst du herunter und fragst dich,
1082 print" was dir das jetzt gebracht hat..."
1083 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1084 :
1085 print"[152] [196]u gehst an den steineren [193]ltar
1086 [153]" heran und klopfst hoeflich an...
1087 print" '[200]erein!' toent es aus dem [211]teingebilde
1088 [153]"on left$alt! (NULL)ar nur ein (NULL)cherz! str$u klopfst
1089 print" an dem [193]ltar... [197]s klingt wie massiver
1090 [153]" (NULL)tein. "
1091 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1092 :
1095 [153]"print# str$u bueckst dich und pflueckst eine
1096 print" handvoll [197]rdbeeren, da du jedoch zu
1097 [153]" gierig bist steckst du sie dir nicht
1098 print" in die [212]asche, sondern in den [205]und...
1099 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1100 [153]"print# str$u gehst ganz nahe an die (NULL)chrift-
1102 print" zeichen heran... [196]u kannst tatsaechlich
1104 [153]"on etwas erkennen! (left$aette ich nicht ge-
1106 print" dacht):
1108 [153]" (NULL)ang chr$ang... (NULL)lopf (NULL)tein... chr$rab bei
1110 print" [197]rdbe...
1112 [153]" str$as ist alles was du entziffern kannst.
1114 print"[145] <[212]aste>":poke198,0:wait198,1:poke198,0:return
1115 print"[152] [196]u klopfst an den grossen, fetten
1118 [153]" (NULL)tein und brichst dir beinahe die
1120 print" [200]and. [211]cheint wohl doch [199]ranit zu
1122 [153]" sein...
1124 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1125 print"[152] [196]u nimmst das [193]mulett in deine
1128 [153]" rechte left$and und streckst es gen'
1130 print" [200]immel... [206]ichts passiert... [211]cheint
1132 [153]" wohl kaputt zu sein, oder ich mach
1134 print" was falsch...
1136 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1140 [153]"loadprint# str$u faengst an auf der steinerenen
1142 print" [215]and herumzuklopfen, als du ploetzlich
1144 [153]" ein (NULL)ischen hoerst und ein (NULL)tueck der
1146 print" [215]and ploetzlich fehlt. [193]us dem [204]och
1148 [153]" dringt (NULL)icht, und da (NULL)icht (NULL)otten
1150 print" und andere [212]iere anzieht geht [204]eo
1152 [153]" in die (NULL)uer, die sich dann zum
1154 print" zweiten [205]al zischend bewegt, bloss
1156 [153]" diesmal zu.
1158 print" [206]un steht [204]eo in einem runden [210]aum,
1160 [153]" der irgendwie an einen (NULL)urbolift aus
1162 print" [210]aumschiff [197]delweiss erinnert (immer-
1164 [153]" noch keine (NULL)erbung!). (NULL)pontan sagt
1166 print" er '[194]ruecke' und der [204]ift setzt sich
1168 [153]" in peekewegung...
1171 print" <[212]aste>":poke198,0:wait198,1:poke198,0
1172 print"[147][152] [208]loetzlich oeffnet sich lautlos die
1173 [153]" (NULL)uer des (NULL)urboliftes und du kannst
1174 print" einen [212]ransporterraum sehen... [200]ey!
1175 [153]" left$alt mal ich wollte doch zur peekruecke!
1176 print" [215]ohl doch nicht ganz so wie in [210]aum-
1177 [153]" schiff valnterpreiss (nicht (NULL)reuss!)...
1178 print" '[215]ow! [197]chte [212]ransporter! [201]ch beam
1179 [153]" mich zum (NULL)ars!!!'
1180 print" [205]utig gehst du zum [211]chaltpult und
1181 [153]" tippst ne'n bischen darauf herum,
1182 print" dann stellst du dich hin wie [195]aptain
1183 [153]" (NULL)irk, (NULL)pock und (NULL)ille es immer machen,
1184 print" und rufst laut '[197][206][197][210][199][201][197]!'.
1185 [153]" str$u spuerst wie du entmaterialisierst...
1186 print"[145] <[212]aste>[152]":poke198,0:wait198,1:poke198,0:poke53265,peek(53265)and239
1187 sys 52509,"beam!",8:poke53265,peek(53265)or16
1188 sys52503:poke198,0:wait198,1:poke198,0:poke53265,peek(53265)and239
1189 sys52506:poke53280,0:poke53281,0
1190 sys 57812 ("leonardo font"),8,1:poke780,0:sys65493
1191 poke53272,33:poke56576,0:poke648,200:poke53265,peek(53265)or16
1192 bi=11:goto30
1200 if x5=1 then goto1203
1201 print"[152] [196]u besitzt keinen [208]haser!":print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0
1202 return
1203 print"[152] [196]u phaserst wild in der [199]egend rum,
1204 [153]" nach einer (NULL)iertelstunde peekeinahe-
1206 print" selbstmord hoerst du auf mit der
1208 [153]" unnuetzen peekallerei..."
1210 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1211 :
1215 [153]"print# str$u nimmst den (NULL)haser aus dem (NULL)egal"
1216 [153]" und steckst ihn dir in eine deiner":x5[178]1
1218 [153]" tausend (NULL)aschen..."
1220 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
1222 [142]
1224 :
1225 [153]"print# str$u nimmst das atnmulett in deine
1226 print" [200]and und drueckst es langsam in die
1228 [153]" (NULL)ulde hinein, die dann zu
1230 print" gluehen beginnt...
1232 [153]" (NULL)loetzlich bewegt sich die (NULL)uer und
1234 print" gibt den [215]eg frei in einen anderen
1236 [153]" (NULL)aum.
1237 if x6=1 then 1254
1238 print"[160][196]u schaust dich um und entdeckst deine
1240 [153]" (NULL)erlobte!!!":x6[178]1
1242 [153]" chr$efesselt sitzt sich auf einem (NULL)tuhl,
1244 print" eigentlich sass, denn in [215]indeseile
1246 [153]" ist sie befreit. (NULL)ach einem langen
1248 print" [194]egruessungskuss verlasst ihr den
1250 [153]" (NULL)aum ohne viel (NULL)orte zu verlieren.
1253 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1254 print" [202]edoch kannst du ausser einem [211]tuhl,
1256 [153]" an dem ein paar (NULL)eile haengen nichts
1258 print" erkennen...":goto 1253
1259 :
1260 print"[152] [196]u nimmst den [208]haser in deine [200]and
1262 [153]" und betrachtest ihn von allen (NULL)eiten.
1264 print" [197]r scheint ein etwas aelteres [205]odell
1266 [153]" zu sein, scheint aber trotzdem noch
1268 print" ganz gut zu funktionieren. [196]er [199]riff
1270 [153]" ist aus einem angenehm anzufassendem
1272 print" [203]unstoff, der [204]auf der [215]affe ist aus
1274 [153]" einem silbergrauen (NULL)etall, das du
1276 print" noch nie vorher gesehen hast.
1278 [153]" valigentlich sieht das str$ing ziemlich
1280 print" genau so aus, wie die [208]haser aus
1282 [153]" (NULL)aumschiff valnterprise (ich meine
1284 print" den [198]ilm).
1286 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1290 [153]"print# str$u nimmst das atnmulett in deine
1292 print" [200]aende und hebst es hoch. [211]chillernd
1294 [153]" bewegt es sich hin und her. str$u
1295 print" betrachtest es naeher:
1296 [153]" valin (NULL)ubinroter (NULL)tein sitzt in einer
1298 print" goldenen [198]assung, die wie zwei in-
1300 [153]" einanderverschlunge (NULL)eopaden geformt
1302 print" ist. [197]s haengt an einer groben, silbern
1304 [153]"on glaenzenden (NULL)ette. str$as atnmulett sieht
1306 print" aus wie frisch poliert, denn es
1308 [153]" glitzert und gleisst in allen ascarben
1310 print" des [211]pektrums.
1312 [153]" '(NULL)ozu mag es wohl dienen? (NULL)eshalb
1314 print" bekam ich das [212]eil bei der [218]usammen-
1316 [153]" kunft?' denkst du dir, auf die ascragen
1318 print" wirst du wohl so schnell keine [193]ntwort
1320 [153]" bekommen...
1322 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1324 :
1325 print"[152] [196]u stellst dich sammt deinem gesamten
1326 [153]" peekesitztum auf die (NULL)ransporterplatte
1328 print" und ruft wieder laut '[197]nergie!'.
1330 [153]" (NULL)ieder auf der right$nsel angekommen
1332 print" verlaesst du den geheimen [210]aum...
1333 [139] x6[178]0 [167] [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
1334 [139] x6[178]0 [167] bi[178]6:[142]
1336 [153]"print# peekravo! str$u hast das atndventure gelosst!
1338 print" [205]it deiner [193]ngebeteten im [193]rm laufst
1349 [153]" du zum (NULL)andstrand und ihr setzt euch
1350 print" in das [194]oot......
1352 [153]" (NULL)ieder daheim angekommen wird erst-
1354 print" mal eine kleine [198]eier durchgezogen...
1356 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[153]"stopload"
1358 [158] 52509,"end-bild",8:[158]52503
1360 [151]198,0:[146]198,1:[151]198,0
1362 [158]52506
1400 [151]53280,0:[151]53281,0
1401 [158] 57812("leonardo font"),8,1:[151]780,0:[158]65493
1402 [151]56576,0:[151]53272,33:[151]e648,200
1403 [153]"loadprint# right$ch hoffe das (NULL)piel hat dir (NULL)pass
1404 print" gemacht!"
1406 print"[159] [195]redits
1408 [153]" list (NULL)rogramm........... sysstr$aniel left$immel
1410 print" [155] [199]rafik.............
1412 [153]" list right$m (NULL)piel+(NULL)itelbild. sysstr$aniel left$immel
1414 print" [155] [197]ndgrafik.......... [158][213]nbekannt....
1416 [153]" list (NULL)ound.............. sys(NULL)nbekannt....
1418 print" [155] [201]dee............... [158][196]aniel [200]immel
1420 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
1422 [137] 1500
1430 [153]"print# str$u nimmst den (NULL)ischtennisball
1431 print" in deine [200]and und drehst ihn.
1432 [153]" valr besteht aus einem weissen (NULL)unst-
1433 print" stoff und ist von [211]childkroet...
1434 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1440 [153]"print# str$u nimmst das 10-(NULL)fennig-(NULL)tueck in
1442 print" deine [200]and und betrachtest es.
1444 [153]" vals stammt aus dem mid$ahr 1953 und sieht
1446 print" nicht mehr ganz neu aus...
1448 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1450 [153]"print# str$u nimmst die (NULL)ed-(NULL)eycard in deine
1452 print" [200]and und drehst es. [197]s sieht aus wie
1454 [153]" eine kleinere atnusgabe des (NULL)wiftlink
1456 print" der [198]irma [195][205][196] und glaenzt in einem
1458 [153]" satten (NULL)ot. valine (NULL)ermutung sagt dir,
1460 print" das du damit eine [210]ote [212]uer oeffnen
1461 [153]" kannst...
1462 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1470 print"[152] [196]u packst deine [214]erlobte aus und
1472 [153]" betrachtest sie dir von allen (NULL)eiten.
1474 print" [202]a, es ist deine [214]erlobte. [194]raunes
1476 [153]" left$aar, etwa 1.70 gross...
1478 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1500 print"[147][152] [196]och wozu ist die [210]ed [203]eycard?
1502 [139] x3[178]1 [167] [153]" str$as 10-(NULL)fennig-(NULL)tuek?"
1504 [139] x1[178]1 [167] [153]" str$er (NULL)ischtennisball?"
1506 [139] x5[178]1 [167] [153]" str$er (NULL)haser?"
1508 [153]"open str$iese ascragen werden (vielleicht)
1510 print" in [204]eonardo 2010 beantwortet werden...
1512 [153]"print# atnuf (NULL)iedersehen!"
1514 [128]
1520 [153]"print# str$u betrachtest den (NULL)tein von allen
1522 print" [211]eiten, kannst jedoch nichts besonderes
1523 [153]"on erkennen. str$ie (NULL)chrift steht auf der
1524 print" [214]orderseite des [194]rockens und wartet
1525 [153]" nur darauf, gelesen zu werden...
1526 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1530 print"[152] [196]u versuchst den [211]teinbrocken hoch-
1532 [153]" zuheben, wobei du dir beinahe einen
1534 print" [194]ruch hebst. [204]angsam sickert die
1536 [153]" valrkenntnis in dein hirn (left$irn habe
1538 print" ich absichtlich [203][204][197][201][206]geschrieben,
1540 [153]" da das bei (NULL)val(NULL) auch zutrifft!), das
1542 print" der [211]tein zu schwer sein koennte,
1544 [153]" und das auch drei (NULL)ypen mit deinen
1546 print" [205]uskeln (ha, ha!!!) den [211]tein nicht
1547 [153]" hochheben koennten. str$rum laesst du's
1548 print" sein...
1550 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1555 [153]"print# str$u haemmerst mit deiner ascaust auf dem
1556 print"[160][211]chott herum, erzeugst damit aber
1557 [153]" keine erkennbare (NULL)eaktion...
1558 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1560 print"[152] [196]u nimmst den [212]ischtennisball und
1562 [153]" wirfst ihn in die (NULL)uft, gekonnt faengst
1564 print"[145] du ihn dann wieder auf...
1566 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0:[142]
1570 [153]"print# str$u nimmst deine (NULL)erlobte und wirfst
1572 print" sie auf den [194]oden, danach faellst
1574 [153]" du ueber sie her und ... zensiert...
1576 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:return
1999 end
2000 print"[147][152] [212]odesmutig buchst du einen [198]lug
2002 [153]" zu einer right$nsel von der aus du zu
2004 print" 'deiner' einsamen, von mutierten
2006 [153]" atnliens besetzten right$nsel fahren kannst.
2008 print" [196]azu musst du dir eine [202]acht mieten,
2010 [153]" was du auch machst (peekoahh, ist der
2012 print" aber reich!, wirst du dir jetzt wohl
2014 [153]" denken... (NULL)timmt aber nicht, es ist
2016 print" eine [197]in-[205]ann-[202]acht mit dem [213]mwelt-
2018 [153]" freundlichen (NULL)uderbootantrieb, mit
2020 print" einer kraftvollen(?) [205][211]([205]enschen
2022 [153]" (NULL)taerke). atnusgestattet mit dem
2024 print" grosstmoeglichen [203]omfort: einen
2026 [153]" (NULL)ederueberzogenen (NULL)itzplatz, wasser-
2028 print" abweisend und atmungsaktiv!)
2030 [153]" (NULL)uegig ruderst du zu der right$nsel, die
2032 print" legiglich ca.33.97258 [203]ilometer ent-
2034 [153]" fernt ist...":[153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
2036 [153]"on valine (NULL)tunde spaeter...
2037 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0
2038 print"[145][145] [218]wei [211]tunden spaeter...
2039 [151]198,0:[146]198,1:[151]198,0
2040 [153]"on (NULL)ier (NULL)tunden spaeter...
2041 poke198,0:wait198,1:poke198,0
2042 print"[145][152] [200]ey! [215]o bleibt der? [215]ir werden uns
2044 [153]" doch nicht nach einem neuen left$eld
2046 print" umsehen muessen?
2047 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
2048 [153]"on (NULL)ier (NULL)tunden und drei komma fuenf
2050 print" [205]inuten spaeter...
2052 [153]" <(NULL)aste>onprint#":[151]198,0:[146]198,1:[151]198,0
2054 [153]"load (NULL)icht mehr ganz so todesmutig er-
2056 print" reicht [204]eonardo den weissen [211]andstrand
2058 [153]" und wirft sich halbtod auf ihn...
2060 print" [196]och als er heldenhafterweise an das
2062 [153]" (NULL)chicksal seiner (NULL)erlobten denkt,
2064 print" nennen wir sie mal [200]aickae, springt
2066 [153]" er auf und rennt wiedereinmal todes-
2068 print" mutig in den fast undurchdringlichen
2070 [153]" str$schungel...
2072 print" [214]orbei an [204]ianen, jeder [205]enge [193]ffen,
2074 [153]" exotisch aussehenden peekaeumen, extrem
2076 print" giftigen [211]chlangen, gierigen [204]eoparden
2078 [153]" ((NULL)ie passend! (NULL)val(NULL)-parden! left$a left$a left$a!!!)"
2080 [153]" und allerlei toedlichem chr$etier rennt
2082 print" unser [204]eo (nicht der von [205]ilka!)
2086 [153]" sysleft$inein ins atnbenteuer!"
2088 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
2090 bi[178]1:[137] 30
2099 :
2100 [153]"loadprint# (NULL)un stehst du am (NULL)ande eines kleinen":bi[178]1
2102 [153]" asclugfeldes. (NULL)a toll!!! (NULL)an kann auch
2104 print" [200]ierher fliegen! [201]st ja ganz toll,
2106 [153]" das ich das auch mal erfahre!
2108 print" [202]edenfalls, wenn du nach [215]esten
2110 [153]" schaust, kannst du den winzigen
2112 print" [212]ower des [198]lugplatzes erkennen.
2114 [153]" left$ingehen kannst du jedoch nicht,
2116 print" da dieses [199]ebiet von einem gigantisch
2118 [153]" anmutendem (NULL)chutzschild umfasst ist.
2120 print" '[198]ast wie bei [195]aptain [203]irk auf dem
2122 [153]" (NULL)aumschiff valntenscheiss'(wir wollen
2124 print" hier ja keine [215]erbung fuer diverse
2126 [153]" (NULL)ciene-asciction-(NULL)erien machen...)
2127 print" <[212]aste>[152]":poke198,0:wait198,1:poke198,0:print"[147]"
2128 print" [201]m [211]ueden dieses wundervollen [208]latzes
2130 [153]" befindet sich ein atncker.(mid$a ein atncker!
2132 print" [208]asst das etwa nicht auf eine einsame
2134 [153]" (NULL)aribikinsel!?). (NULL)enn du eventuell,
2136 print" wirklich nur eventuell auf die geniale
2138 [153]" right$dee kommen solltest nach (NULL)orden oder
2140 print" sogar [207]sten gehen zu wollen, dann lass
2142 [153]" das lieber bleiben!
2144 if x1=0 then print" [193]ls dein wachsamer [194]lick auf den [194]oden
2146 [139] x1[178]0 [167] [153]" faellt sticht dir sofort ein chr$egenstand
2148 if x1=0 then print"[145] ins [193]uge ([193]utsch!) ein [208]ing-[208]ong-[194]all!"
2150 print" [158][215]as tust du nun?"
2152 gosub10:gosub90
2154 gosub50:goto 30
2199 :
2200 print"[147][152] [202]etzt stehst du auf einem [197]rdbeer-":bi=2
2202 print" acker. [197]rdbeeren soweit das blinde
2204 [153]" atnuge reicht! atnls du die valrdbeeren
2206 print" genauer anschaust kannst du dich des
2208 [153]" valindruckes nicht erwehren, das dich
2210 print" diese schmackhaften [197]rdbeeren irgend-
2212 [153]" wie anstarren. (str$ie (NULL)pace-(NULL)utants
2214 print" werden doch wohl keine [199]en-[197]xperimente
2216 [153]" durchgefuehrt haben?). (NULL)aehrend du
2218 print" ueber diese seltsamen [197]rdbeeren
2220 [153]" nachdenkst, nimmst du ploetzlich
2222 print" eine [194]ewegung aus dem [193]ugenwinkel
2224 [153]" wahr."
2226 [153]" <(NULL)aste>print#":[151]198,0:[146]198,1:[151]198,0
2228 [153]"loadprint# atnls du dich jedoch umdrehst entdeckst
2230 print" du nichts ungewoehnliches, ausser
2232 [153]" vielleicht, das die (NULL)flanzen ein
2234 print" kleines bischen naeher gerueckt sind?"
2236 print" '[197]gal!' denkst du dir und schaust auf
2238 [153]" den fruchtbaren, feuchten, vor kleinen
2240 print" [212]ieren wimmelnden [194]oden an und kannst
2242 [153]" jedoch ausser viel, viel str$reck nichts
2244 print" erkennen ([200]a, [200]a!). [196]u koenntest rein
2246 [153]" theorethisch gesehen in alle (NULL)ichtungen
2248 print"[145] weil ich es aber so will, kannst du
2250 [153]" nur nach (NULL)orden, (NULL)ueden und (NULL)sten
2252 if x2=0 then print" [193]m [194]oden liegt deutlich sichtbar eine
2254 [139] x2[178]0 [167] [153]" '(NULL)valstr$ (NULL)val(NULL)lenatn(NULL)str$' (kennst du str$(NULL)(NULL)(NULL) vom (NULL)len?
2256 if x2=0 then print" [215]enn du mal ein hundertfacher [205]assen-
2258 [139] x2[178]0 [167] [153]" moerder sein willst, dann ist dieses
2260 if x2=0 then print" wundervolle [205]etzel-game das richtige
2262 [139] x2[178]0 [167] [153]" fuer dich!)"
2263 [153]"sys (NULL)as willst du tun?"
2264 [141] 10:[141] 90
2266 [141] 50:[137] 30
2299 :
2300 [153]"loadprint# (NULL)un steht unser kleiner (NULL)eo auf einem":bi[178]3
2302 [153]" kleinem, ausgetretenem (NULL)rampelpfad,
2304 print" der mit sehr hoher [215]ahrscheinlichkeit
2306 [153]" von nicht gerade kleinen (NULL)ieren ge-
2308 print" schaffen wurde, um genau zu sein,
2310 [153]" diesen (NULL)ieren solltest du lieber nicht
2312 print" begegnen, denn dann waere dieses
2314 [153]" (hoffentlich) interessante atndventure
2316 print" sehr, sehr schnell zu [197]nde!). [213]m es
2318 [153]" noch deutlicher zu sagen: peekeeil dich!
2320 print" [196]u kannst nach [207]sten und [215]esten, wobei
2322 [153]" ich persoenlich auf keinen ascall nach
2324 print" [207]sten gehen wuerde (ich kann kein
2326 [153]" (NULL)ussisch!)...
2328 print"[158] [215]as willst du tun?
2330 [141]10:[141]90:[141]50:[137]30
2399 :
2400 bi[178]4:[139] x4[178]1 [167] 2535
2401 [153]"loadprint# (NULL)angsam betrittst du eine grosse,
2402 print" dunkle [204]ichtung. [201]n ihrer [205]itte befin-
2404 [153]" det sich ein (NULL)ockel, um ihn stehen
2406 print" sechs in lange, braune [203]utten ge-
2408 [153]" kleidete (NULL)ersonen. (NULL)ie bewegen ryth-
2410 print" misch ihre [193]rme zu einer [205]usik, die
2412 [153]" scheinbar aus dem str$schungel kommt...
2414 print" [197]ine der [208]ersonen dreht sich um und
2416 [153]" winkt dich zu ihm. (NULL)angsam und mehr
2418 print" oder weniger [213]nsicher gehst du auf
2420 [153]" die in eine (NULL)utte gekleidete (NULL)erson
2422 print" zu und versuchst ihr in das [199]esicht
2424 [153]" zu sehen, jedoch kannst du nichts er-
2426 print" kennen, da in der gesammten [204]ichtung
2428 [153]" eine seltsame str$aemmerung herrscht,
2430 print" die alle [203]onturen verwischt. [215]ort-
2432 [153]" los zeigt die (NULL)erson auf den atnltar,
2434 print" auf dem fremdartige [211]chriftzeichen
2436 [153]" eingeritzt sind. (NULL)angsam schreitest
2438 print" du den [215]eg, waehrenddessen beginnen
2440 [153]" die (NULL)uttentraeger zu singen, immer
2442 print" lauter mit jedem [211]chritt, den du
2444 [153]" machst. (NULL)oegernd bleibst du stehen
2446 print" und blickst nach oben. [196]ie [211]onne
2448 [153]" scheint wie vom left$immel gewischt, einonon
2450 poke198,0:wait198,1:poke198,0
2452 print"[147] dichter [206]ebel scheint ueber der
2454 [153]" (NULL)ichtung zu liegen, erst jetzt bemerkst
2456 print"[145] du die [198]ackeln, die zwischen den
2458 [153]" einzelnen (NULL)ersonen stehen und vom
2460 print" [215]ind hin- und herbewegt werden.
2462 [153]" str$er chr$esang der str$ruiden ist mittler-
2464 print" weile zu einem infernalischen [196]roehnen
2466 [153]" angeschwollen. (NULL)uckartig drehst du
2468 print" dich wieder zu dem [193]ltar und setzt
2470 [153]" einen ascuss vor den anderen, ohne das
2472 print" du auch nur mit einem [199]edanken daran
2474 [153]" denkst. atnuf der left$oechsten (NULL)telle des
2476 print" mit [210]unenschrift uebersaeten [193]ltars
2478 [153]" bleibst du stehen. (NULL)ieder drehst du
2480 print" dich um und betrachtest die [211]zene.
2482 [153]" str$er (NULL)ind ist mittleiweile zu einem
2484 print" [199]ewitter angeschwollen, [194]litze zucken
2486 [153]" aus dem dunklen left$immel, das fordernde
2488 print" [211]ingen der [196]ruiden nimmst du nur noch
2490 [153]" am (NULL)ande wahr, langsam streckst du
2492 print" deine [193]rme aus, du hoerst eine leise,
2494 [153]" fluesternde (NULL)timme, 'str$ie (NULL)usammenkunft
2496 print" erfolgt!' eindringlich brennen sich
2498 [153]" diese (NULL)orte in deinen chr$eist."
2500 [153]" <(NULL)aste>print#onon":[151]198,0:[146]198,1:[151]198,0
2502 [153]"load (NULL)loetzlich schlaegt ein einzelner,
2504 print" grell leuchtender [194]litz in deine
2506 [153]" ausgestreckten left$aende, die str$ruiden
2508 print" beenden ploetzlich ihren [199]esang, es
2510 [153]" wird totenstill, doch der peeklitz
2512 print" wabbert weiter an deinen [200]aenden.
2514 [153]" (NULL)loetzlich erlischt auch er und es
2516 print" wird dunkel, als du deine [200]aende be-
2518 [153]" wegst, spuerst du einen chr$egenstand
2520 print" in deiner [200]and, ein [193]mulett!
2522 [153]" (NULL)angsam wird es wieder hell, die":x4[178]1
2524 [153]" str$ruiden und die ascackeln sind ver-
2526 print" schwunden, die [204]ichtung liegt voellig
2528 [153]" verlassen vor dir.
2530 print" [196]u kannst nur nach [215]esten.":ifrt=0thenprint" <[212]aste)[152]":poke198,0:wait198,1:poke198,0
2531 print"[144][147]":if rt=0 then rt=1:sys52500,"power!",8:goto1
2532 print" [158][215]as willst du tun?"
2534 gosub 10:gosub 90:gosub50:goto 30
2535 print"[147][152] [206]un bist du an der [211]taette, an der die
2536 [153]" (NULL)usammenkunft stattfand! vals ist eine
2537 print" grosse [204]ichtung mit einem [211]teinaltar
2538 [153]" in der (NULL)itte, auf dem fremde (NULL)chrift-
2540 print" zeichen aufgetragen sind, sonst laeuft
2542 [153]" hier nichts ab. str$u kannst nur nach
2544 print" [215]esten.
2545 [153]"sys (NULL)as willst du tun?"
2546 [141]10:[141]90:[141]50:[137]30
2549 :
2550 [153]"loadprint# str$u stehst vor einer steil aufragenden
2552 print" [198]elswand, durch die lediglich ein
2554 [153]" duenner chr$ang gindurchfuehrt. str$u
2556 print" kannst nach [206]orden oder nach [211]ueden,
2558 [153]" in den engen chr$ang hinein...
2560 print" [158][215]as willst du tun?"
2562 gosub10:gosub90:gosub50:goto30
2599 :
2600 print"[147][152] [196]u stehst nun in der [205]itte eines
2602 [153]" langen chr$anges, der durch eine gewaltige
2604 print"[145] [198]elswand fuehrt. '[214]erdammt, wo hab
2606 [153]" ich bloss mein asceuerzeug?!' denkst
2608 print" du dir, da du eigentlich ziemlich
2610 [153]" wenig siehst, wenn man es so sieht
2612 print" (oder nicht sieht) dann siehst du
2614 [153]" nichts, rein gar nichts! right$st das
2616 print" nicht depremierend!? [196]a koennen die
2618 [153]" schoensten, groessten (NULL)chaetze hinter
2620 print" einer [199]eheimtuer lauern und man sieht
2622 [153]" sie nicht! str$as ist (NULL)ech...
2624 print" [196]u kannst nach [206]orden und [211]ueden.
2626 [153]" sys(NULL)as machst du jetzt?"
2628 [141]10:[141]90:[141]50:[137]30
2649 :
2700 [153]"loadprint# (NULL)un befindest du dich am (NULL)aldrand,
2701 print" oder doch wohl eher am [196]schungelrand."
2702 print" [200]ier waechst etwa knoechelhohes [199]rass
2704 [153]" und ein paar emsige right$nsekten huschen
2706 print" hin und her, das ganze [198]eld scheint
2708 [153]" zu bluehen, vor right$nsekten (right$git!) und
2710 print" vor [194]lumen ([193]hhh!). [215]enn du nach [207]sten
2712 [153]" schaust kannst du eine kleine (NULL)chlucht
2714 print" erkennen, im [215]esten sieht man nichts,
2716 [153]" was nicht umbedingt heissen soll, das
2718 print" dort nichts ist, da ist naemlich schon
2720 [153]" was, bloss was!?
2721 print" [196]u kannst nach [206]orden, [215]esten und [207]sten
2722 [153]"syson (NULL)as tust du nun?"
2724 [141]10:[141]90:[141]50:[137]30
2749 :
2800 [153]"loadprint# mid$etzt befindest du dich am (NULL)ande einer
2802 print" kleinen aber vor allem [212][201][197][198][197][206]! [211]chlucht
2804 [153]"on ((NULL)chluck!). str$u koenntest noch etwas
2806 print" nach [207]sten gehen, vielleicht lohnt
2808 [153]" es sich ja!? (NULL)eben dir steht oder
2810 print" besser liegt ein besonders fetter
2812 [153]" (NULL)teinbrocken, der left$immel weiss wo der
2814 print" herkommt. [193]ls du ihn naeher in [193]ugen-
2816 [153]" schein nimmst, faellt dir eine
2818 print" schwache, kraxelige [211]chrift auf...
2819 [153]" str$u kannst nach (NULL)esten und (NULL)sten.
2820 print"[158] [215]as nun, guter [205]ann (oder [198]rau)?
2822 [141]10:[141]90:[141]50:[137]30
2849 :
2900 bi[178]9:[153]"loadprint# mid$etzt bist du gerade in eine ascalle
2902 print" getappt, aus der du [206][201][197] mehr ent-
2904 [153]" kommen kannst! str$as (NULL)piel ist jetzt
2906 print" beendet! [196]ie [196]iskette wird uebrigens
2908 [153]" gerade geloescht.
2910 print" [193]lso [211]pass beiseite, du befindest dich
2912 [153]" an einem (NULL)rt, den noch kein (NULL)ensch
2914 print" zuvor betreten hatte! ([194]ist du ein
2916 [153]" (NULL)ensch?!)
2918 print" [200][197][217], warum glaubst du mir nicht? [196]as
2920 [153]" klingt doch ganz gut, oder etwa nicht?
2922 print" [207].[203]., du stehst in einer stinknormalen
2924 [153]" (NULL)ackgasse, die durch diesen schoenen
2926 print" [212]ext eigentlich gar nicht mehr stink-
2928 [153]" normal sein sollte...
2930 print" [196]er einzige [215]eg in [198]reiheit fuehrt
2932 [153]" nach (NULL)sten."
2934 [153]" sys(NULL)as machst du nun?"
2936 [141]10:[141]90:[141]50:[137]30
2949 :
3000 bi[178]10:[153]"loadprint# (NULL)ja, da war unser lieber,
3002 print" kleiner [204]eo wohl nicht vorsichtig
3004 [153]" genug, denn als du weiter an den
3006 print" [210]and der [211]chlucht gehen wolltest,
3008 [153]" loesste sich unter deinen ascuessen
3010 print" ein kleiner [211]tein von der [199]roesse
3012 [153]" des valmpire-(NULL)tate-peekuildings in den (NULL).(NULL).atn
3014 print"[145] unter deinen [198]uessen. [202]a, ja, der
3016 [153]" (NULL)aure (NULL)egen fuehrt schon zu so manchem
3018 print" [212]od... [196]as [211]teinchen reisst dich
3020 [153]" erbarmungslos mit in die (NULL)iefe, der
3022 print" einzige, der dich jetzt noch retten
3024 [153]" koennte, waere right$lenleft$, der (NULL)rogrammierer.
3026 print" [197]in einziger, simpler [199][207][212][207]-[194]efehl...
3028 [153]" (NULL)iele (NULL)eute sagen ja, ich waere
3030 print" [197][201][212][197][204], mich zu sehr in [211]zene setzte
3032 [153]" (vor allem in meinen (NULL)rogrammen!!!).
3034 print" [215]as meinst du dazu?
3036 [153]" sys(1) str$er (NULL)rogrammierer ist eitel
3038 print" (2) [196]er [208]rogrammierer ist [206][201][195][200][212] eitel
3040 [153]" open(NULL)riff deine (NULL)ahl!"
3045 [161]r$:[139] r$[178]"" [167] 3045
3046 [139] r$[178]"1" [167] 3050
3048 [139] r$[178]"2" [167] 3070
3049 [137] 3045
3050 [153]"loadprint# str$as war ascatn(NULL)(NULL)lenleft$!
3052 print" [215][193][211]?????? [201]ch bin eitel!? [215]as denkst
3054 [153]" du dir ???
3056 print" <[212]aste>[152]":poke198,0:wait198,1:pke198,0
3058 run
3070 print"[152][147][160][211]chleimen nuetzt dir auch nichts mehr!
3072 [153]" str$as wars!"
3074 [153]" <(NULL)aste>print#"
3076 [151]198,0:[146]198,1:[151]198,0:[138]
3100 [153]"loadprint# str$u remateralisierst in einem (NULL)aum,
3102 print" der dem [212]ransporter auf der [201]nsel fast
3104 [153]" auf das left$aar gleich. (NULL)ur liegt hier
3105 print" ein leichtes [194]rummen in der [204]uft.
3106 [153]" str$er (NULL)ransporter scheint immer noch
3107 print" funktionsbereit zu sein, das heisst,
3108 [153]" das du ihn jederzeit benutzen kannst.
3109 print" [197]s befinden sich keine [208]ersonen im
3110 [153]" (NULL)aum, str$u kannst nach (NULL)sten, auf den
3112 print" [199]ang hinaus."
3114 print"[158] [215]as tust du nun?"
3116 gosub10:gosub90:gosub50:goto30
3149 :
3200 print"[147][152] [206]un stehst du auf dem [199]ang der [213].[211].[211].
3202 [153]" valnterpr... (right$ch hasse (NULL)erbung!)
3204 print" [196]u kannst nach [206]orden und [211]ueden,
3206 [153]" an der chr$angwand sind regelmaessig
3208 print" [211]chotte eingelassen. [197]s zeigen sich
3210 [153]" keine (NULL)enschen, noch nicht mal (NULL)pace-
3212 print" [205]utants ([211]chade!). [201]m [206]orden kannst du
3214 [153]" eine weitere (NULL)erzweigung sehen, im
3216 print" [211]ueden befindet sich nur ein einzelnes,
3218 [153]"on ziemlich grosses (NULL)chott...
3220 print" [158][215]as nun grosser [200]eld?"
3222 gosub10:gosub90:gosub50:goto30
3249 :
3300 print"[147][152] [196]u stehst nun an einer klassischen
3302 [153]" (NULL)-(NULL)reuzung ((NULL)ernt man in der ascahr-
3304 print" schule!). [193]n der [215]and befinden sich
3306 [153]" grosse left$inweisschilder, die in valnglisch
3308 print"[145] verfasst sind: [215]est-??? <- heisst
3310 [153]" auf deutsch (NULL)nast, chr$efaengnis,
3312 print" [203]itchen (nicht [203]ueche!!!), [197]ast-???
3314 [153]" (str$as heisst auf deutsch (NULL)agerraum!)...
3316 print" [197]ntschuldigt meine schlechten [197]nglisch-
3318 [153]"on (NULL)enntnisse, aber ich habe gerade
3320 print" [198]erien, da funktioniert halt nicht
3322 [153]" immer so wie man's will...
3324 print" [194]evor ich etwas vergesse, nach
3326 [153]" (NULL)ueden kann man auch noch.
3328 print"[158] [215]as du tun nun? ([199]ut-[196]eutsch!)
3330 [141]10:[141]90:[141]50:[137]30
3349 :
3400 [153]"loadprint# (NULL)un stehst du in einem kleinen
3402 print" [204]agerraum, in dem vier, etwa sechs
3404 [153]" (NULL)eter lange (NULL)egale stehen. str$ie (NULL)egale
3406 print" sind vollbeladen mit allerhand [218]eug.
3408 [139] x5[178]0 [167] [153]" (NULL)ie zum peekeispiel einem kleinen,
3410 if x5=0 then print" handlichen [208]haser."
3412 print" [193]nsonsten ist dieser [210]aum eine [211]ack-
3414 [153]" gasse, das heisst, das du nur nach
3416 print" [215]esten gehen kannst.
3418 [153]"sys (NULL)as tust du nun?
3420 gosub10:gosub90:gosub50:goto30
3449 :
3500 print"[147][152] [206]un stehst du vor einer metalenen
3502 [153]" (NULL)uer, in die ein kleines (NULL)ichtfenster
3504 print" eingelassen ist, durch das man aber
3506 [153]" nichts erkennen kann. str$ort, wo bei
3508 print" einer auf der [197]rde ueblichen [212]uer die
3510 [153]" (NULL)linge waere, befindet sich hier eine
3512 print" kleine [205]ulde, die in etwa an die
3514 [153]" ascorm eines atnmuletts erinnert...
3516 print" [193]nsonsten ist die [212]uer voellg glatt
3518 [153]" und besitzt keine ascugen.
3520 print" [196]u kannst nach [207]sten.
3522 [153]"sys (NULL)as nun?"
3524 [141]10:[141]90:[141]50:[137]30
3549 :
3600 [153]"loadprint# str$u stehst vor einem grossem, quardrat-
3601 print" ischen [211]chott. [193]uf ihm steht in
3602 [153]" grossen, schwarzen peekuchstaben '(NULL)urbo-
3604 print" lift'. [196]u siehst aber keine [205]oeglich-
3606 [153]" keit, das (NULL)chott zu oeffnen, da
3608 print" es voellig glatt ist und keine [210]iefen
3610 [153]" aufweisst.
3612 print" [196]u kannst nach [206]orden.
3614 [153]"sys (NULL)as tust du nun?"
3616 [141]10:[141]90:[141]50:[137]30
3649 :